home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / 2play / zoardes.lha / dr.zoardes / Dr.Zoardes (.txt) next >
AmigaBASIC Source Code  |  1994-04-24  |  6KB  |  176 lines
  1. SCREEN 2,640,256,3,2
  2. WINDOW 2,"Dr. Zoardes",(0,0)-(631,200),0,2
  3. PALETTE 4,0.8,0.1,0.1: PALETTE 0,0,0,0: PALETTE 3,0.1,0.1,1: COLOR 4,2
  4. PALETTE 2,0,0,0: PAINT (10,10),2
  5. start:
  6. RANDOMIZE TIMER
  7. PRINT" 
  8. PRINT" Dr.Zoardes
  9. PRINT" **********
  10. PRINT
  11. PRINT" (1) Anleitung
  12. PRINT" (2) Start
  13. PRINT" (3) Ende
  14. PRINT
  15. INPUT" Ihre Wahl (1-3)";w
  16. IF w=1 THEN GOTO w1:
  17. IF w=3 THEN GOTO w3:
  18. w2:
  19. CLS
  20. PRINT
  21. PRINT" Ihnen werden jetzt per Zufallsgenerator mehrere Fragen gestellt."
  22. PRINT" Bitte beantworten sie diese wahrheitsgemäß."
  23. PRINT
  24. INPUT" RETURN";r$
  25. GOTO f1:
  26. zufall:
  27. PRINT
  28. z=INT(RND*(76+1))
  29. IF z=1 THEN PRINT" Wie sollte Dein Idealpartner aussehen?"
  30. IF z=2 THEN PRINT" Was ist Deine Lieblingsfarbe?"
  31. IF z=3 THEN PRINT" Was war Dein Lieblingsfach in der Schule?"
  32. IF z=4 THEN PRINT" Welches Fach hast Du in der Schule am Meisten gehaßt?"
  33. IF z=5 THEN PRINT" Warst Du ein guter Schüler?"
  34. IF z=6 THEN PRINT" Magst Du Tiere?"
  35. IF z=7 THEN PRINT" Magst Du Kinder?"
  36. IF z=8 THEN PRINT" Magst Du den Umgang mit Computern?"
  37. IF z=9 THEN PRINT" Welche Musik magst Du am liebsten und welche magst Du nicht?"
  38. IF z=10 THEN PRINT" Wie siehst Du Dich politisch?"
  39. IF z=11 THEN PRINT" Bist Du in festen Händen?"
  40. IF z=12 THEN PRINT" Glaubst Du an die wahre Liebe?"
  41. IF z=13 THEN PRINT" Was würdest Du unserem Bundeskanzler am Liebsten sagen?"
  42. IF z=14 THEN PRINT" Wie stehst Du zu diesem Programm?"
  43. IF z=15 THEN PRINT" Was ist Deine Lieblingsfernsehserie und welche magst Du nicht?"
  44. IF z=16 THEN PRINT" Bist Du ehrlich?"
  45. IF z=17 THEN PRINT" Deine Lieblingsschauspieler/-innen, wen magst Du nicht?"
  46. IF z=18 THEN PRINT" Welche Menschen bewunderst Du, wen magst Du nicht?"
  47. IF z=19 THEN PRINT" Wie stehst Du Religionen gegenüber?"
  48. IF z=20 THEN PRINT" Was sagst Du zum Thema Abtreibung?"
  49. IF z=21 THEN PRINT" Was hälst Du von der EG?"
  50. IF z=22 THEN PRINT" Was hälst Du für Deine Stärken und Schwächen?"
  51. IF z=23 THEN PRINT" Wobei wirst Du schwach?"
  52. IF z=24 THEN PRINT" Wen Du nicht Du wärst, was oder wer wärst Du am Liebsten?"
  53. IF z=25 THEN PRINT" Wem hast Du am Meisten weh getan?"
  54. IF z=26 THEN PRINT" Wo würdest Du gerne leben?"
  55. IF z=27 THEN PRINT" Hast Du schon mal an Selbstmord gedacht?"
  56. IF z=28 THEN PRINT" Was tust Du um die Erde zu retten?"
  57. IF z=29 THEN PRINT" Glaubst Du an Gott?"
  58. IF z=30 THEN PRINT" Glaubst Du an Ausserirdische?"
  59. IF z=31 THEN PRINT" Was hälst Du für die größte Erfindung der Menschheit?"
  60. IF z=32 THEN PRINT" Dein Lieblingsfilm?"
  61. IF z=33 THEN PRINT" Dein Lieblingessen?"
  62. IF z=34 THEN PRINT" Kannst Du gut mit Geld umgehen?"
  63. IF z=35 THEN PRINT" Deine Lieblingsjahreszeit, welche magst Du nicht?"
  64. IF z=36 THEN PRINT" Beantwortest Du gerne diese Fragen?"
  65. IF z=37 THEN PRINT" Hast Du schonmal übernatürliche Erfahrungen gehabt?"
  66. IF z=38 THEN PRINT" Hälst Du Dich für beliebt?"
  67. IF z=39 THEN PRINT" Wer glaubtst Du mag Dich nicht?"
  68. IF z=40 THEN PRINT" Bist Du Leichtgläubig?"
  69. IF z=41 THEN PRINT" Glaubst Du an ein Leben nach dem Tod?"
  70. IF z=42 THEN PRINT" Wen oder was betrügst Du?"
  71. IF z=43 THEN PRINT" Siehst Du viel TV?"
  72. IF z=44 THEN PRINT" Deine Lieblingsklamotten, was magst Du nicht?"
  73. IF z=45 THEN PRINT" Für wie wichtig hälst Du Kabelfernsehn?"
  74. IF z=46 THEN PRINT" Kannst Du Dir ein Leben als Einsiedler vorstellen?"
  75. IF z=47 THEN PRINT" Bist Du ein Familienmensch?"
  76. IF z=48 THEN PRINT" Was sagt Dir ´Al Bundy´?"
  77. IF z=49 THEN PRINT" Würdest Du Dich als Spiesser bezeichnen?"
  78. IF z=50 THEN PRINT" Wovor hast Du Angst?"
  79. IF z=51 THEN PRINT" Wobei hast Du am Meisten versagt?"
  80. IF z=52 THEN PRINT" Treibst Du viel Sport?"
  81. IF z=53 THEN PRINT" Was tust Du um bei anderen beliebt zu sein?"
  82. IF z=54 THEN PRINT" Wie stehst Du dem technischen Fortschritt gegenüber?
  83. IF z=55 THEN PRINT" Hattest Du als Kind viele Idole?"
  84. IF z=56 THEN PRINT" Was belastet Dich zur Zeit?"
  85. IF z=57 THEN PRINT" Welchem Laster oder welcher Sucht bist Du verfallen?"
  86. IF z=58 THEN PRINT" Hälst Du Dich für ein Glückskind?"
  87. IF z=59 THEN PRINT" Glaubst Du an Liebe auf dem ersten Blick?"
  88. IF z=60 THEN PRINT" Wo machst Du am Liebsten Urlaub?"
  89. IF z=0 THEN PRINT" Freilos!"
  90. IF z=61 THEN PRINT" Nimm Stellung: Die Gesellschaft wird immer unmenschlicher."
  91. IF z=62 THEN PRINT" Nimm Stellung: Der Mensch ist von Natur aus schlecht."
  92. IF z=63 THEN PRINT" Nimm Stellung zum Thema Emanzipation
  93. IF z=64 THEN PRINT" In welcher Zeit hättest Du gerne gelebt?"
  94. IF z=65 THEN PRINT" Bist Du abergläubig?"
  95. IF z=66 THEN PRINT" Bist Du ein guter Verlierer?"
  96. IF z=67 THEN PRINT" Hast Du schonmal ein UFO gesehen?"
  97. IF z=68 THEN PRINT" Könntest Du Dir ein Leben als Mönch vorstellen?"
  98. IF z=69 THEN PRINT" Realisierst Du Deine Träume?"
  99. IF z=70 THEN PRINT" Dein Lieblingswunsch?"
  100. IF z=71 THEN PRINT" In welcher Filmrolle würdest Du dich gerne sehen?"
  101. IF z=72 THEN PRINT" Was war dein größter Erfolg?"
  102. IF z=73 THEN PRINT" Was war deine größte Niederlage?"
  103. IF z=74 THEN PRINT" Wen würdest Du gerne mal näher kennenlernen?"
  104. IF z=75 THEN PRINT" Welcher Gegenstand wärst Du am Liebsten?"
  105. IF z=76 THEN PRINT" Welche Aängst hast Du?"
  106. RETURN
  107. f1:
  108. CLS
  109. PRINT" Frage 1:
  110. GOSUB zufall:
  111. a=z
  112. PRINT:PRINT:INPUT" RETURN";r$
  113. f2:
  114. CLS
  115. PRINT" Frage 2:
  116. GOSUB zufall
  117. b=z
  118. IF b=a THEN GOTO f2:
  119. PRINT:PRINT:INPUT" RETURN";r$
  120. f3:
  121. CLS
  122. PRINT" Frage 3:
  123. GOSUB zufall
  124. c=z
  125. IF c=a OR c=b THEN GOTO f3:
  126. PRINT:PRINT:INPUT" RETURN";r$
  127. f4:
  128. CLS
  129. PRINT" Frage 4:
  130. GOSUB zufall:
  131. d=z
  132. IF d=a OR d=b OR d=3 THEN GOTO f4:
  133. PRINT:PRINT:INPUT" RETURN";r$
  134. f5:
  135. CLS
  136. PRINT" Frage 5:
  137. GOSUB zufall:
  138. e=z
  139. IF e=a OR e=b OR e=c OR e=d THEN GOTO f5:
  140. PRINT:PRINT:INPUT" RETURN";r$
  141. charakter:
  142. CLS
  143. PRINT"
  144. PRINT" Welche Charaktereigenschaften würdest Du Dir zuordnen?"
  145. PRINT"
  146. PRINT" unbeständig        freundlich          gerecht          ehrlich
  147. PRINT" verträumt          ideenhaft           zaghaft          treu
  148. PRINT" ängstlich          optimistisch        selbstbewußt     naiv
  149. PRINT" geduldig           fleißig             realistisch      romantisch
  150. PRINT" eitel              ausgeglichen        sensibel         querköpfig
  151. PRINT
  152. PRINT
  153. INPUT" RETURN";r$
  154. GOTO start:
  155. w1:
  156. CLS
  157. PRINT
  158. PRINT" Dr.Zoardes ist ein Psychoprogramm. Per Zufallsgenerator werden Dir
  159. PRINT" fünf Fragen gestellt, die Du im Freundeskreis beantworten sollst.
  160. PRINT" Danach fragt Dich der Doktor nach Deinen Charaktereigenschaften."
  161. PRINT" Da manche Frage sehr intim sind, sollst Du dieses Programm nur mit
  162. PRINT" wirklichen Freunden spielen."
  163. PRINT
  164. PRINT" Dr.Zoardes ist Public Domain.
  165. PRINT" Autor: Patrick Henz, Martinstr.15, 52062 Aachen, Germany
  166. PRINT" 24.4.1994"
  167. PRINT
  168. PRINT
  169. INPUT" RETURN";r$
  170. GOTO start:
  171. w3:
  172. CLS
  173. END
  174.  
  175.  
  176.